home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / NET / TCP11 / TCP11.DEI < prev    next >
Encoding:
Text File  |  1995-10-05  |  3.4 KB  |  81 lines
  1. /* Copyright (c) Oracle Corporation 1992, 1993.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     tcp11.dei - Windows 95 V3 de-installation script for SQL*Net TCP/IP.
  5.  
  6.   DESCRIPTION
  7.     This script removes the Windows 95 SQL*Net TCP/IP files and un-registers
  8.     the product (client version).
  9.  
  10.   VERSION
  11.     1.1.1.6
  12.  
  13.   OWNER
  14.     Tony Rodgers
  15.  
  16.   MODIFIED    DD-MMM-YY Reason
  17.     trodgers  10-APR-92 Created.
  18.     Calvin    21-FEB-92 Modify for standalone install.
  19.     Eflores   26-JUL-94 Modified for 3.0.10 installer
  20.     LMurphy   08-SEP-95 Modified for Windows 95
  21. *****************************************************************************/
  22. {
  23.   { doit = execute("%installer_home%\win95.dei"); }
  24.   [
  25.     'UNBOUND_VARIABLE: signal('failure,instantiate(nls("instver_too_early2","The version of the Installer currently running is %%installer_version%%. The product(s) you have chosen to deinstall were installed with a later version of the Installer. Please use a later version of the Installer to deinstall these product(s).")));
  26.   ]
  27.  
  28.  if (doit)
  29.  {
  30.  
  31.    net1_deregister = nls("net1 deregister","Unregistering %%registry_label%%...");
  32.    net1_deinstall_dlls = nls("net1 deinstall dlls","Deinstalling %%registry_label%% DLLs...");
  33.    net1_deinstall_scripts = nls("net1 deinstall scripts","Deinstalling %%registry_label%% Installation Scripts...");
  34.  
  35.     tcp11_deinst = instantiate(nls("tcp11_deinst", "A %%registry_label%% DLL (SQLTCPNT.DLL) is being used on this machine. Please stop all Oracle applications that are using %%registry_label%% before deinstalling %%registry_label%%.
  36.  
  37. Choose OK after you have closed all Oracle applications and want to resume the deinstallation of %%registry_label%%.
  38.  
  39. Choose CANCEL to terminate the deinstallation of %%registry_label%%.
  40.     "));
  41.     tcp11_deinst_term = instantiate(nls("tcp11_inst_term", "%%registry_label%% deinstallation terminated."));
  42.     tcp11_deinst_content = instantiate(nls("tcp11_deinst_content", "%%registry_label%% DLL Used"));
  43.     tcp11_deinst_help = instantiate(nls("tcp11_deinst_help", "The Oracle Installer has detected that a %%registry_label%% DLL (SQLTCPNT.DLL) is being used on this machine.  Please stop all Oracle applications that are using %%registry_label%% before deinstalling %%registry_label%%.
  44.  
  45. Choose OK after you have closed all Oracle applications and want to resume the deinstallation of %%registry_label%%.
  46.  
  47. Choose CANCEL to terminate the deinstallation of %%registry_label%%.
  48.     "));
  49.  
  50.     /* check to see if all apps are closed */
  51.     done = FALSE;
  52.     while(not(done))
  53.     { move_file("%ORACLE_HOME%\bin\sqltcpnt.dll", "%ORACLE_HOME%\bin\sqltcpnt.dll"); done = TRUE;}
  54.     [ 'PERMISSION_DENIED, 'INVALID_FILE_NAME, 'OS_ERROR, 'WRITE_ERROR:
  55.       {
  56.         information_dialog(instantiate(tcp11_deinst), tcp11_deinst_content, instantiate(tcp11_deinst_help));
  57.       }
  58.       'FILE_NOT_FOUND:
  59.         done = TRUE;
  60.     ]                       
  61.  
  62.     ui_action(instantiate(net1_deinstall_dlls));
  63.     remove(dll);
  64.  
  65.     ui_action(instantiate(net1_deinstall_scripts));
  66.     remove(deinstl);
  67.  
  68.     if (registered("w95rsf72"))
  69.     {
  70.       dependent = registration("w95rsf72");
  71.       unreference(dependent,current_registry);
  72.       deinstall(dependent);
  73.     }
  74.  
  75.     ui_action(instantiate(net1_deregister));
  76.     unregister(current_registry);
  77.  
  78.     permit_retry_operations = FALSE;
  79.   }
  80. }
  81.